R Notebook

Get Basic team data

library(plotly)

Attache Paket: ‘plotly’

The following object is masked from ‘package:ggplot2’:

    last_plot

The following object is masked from ‘package:stats’:

    filter

The following object is masked from ‘package:graphics’:

    layout

Get season Stats

getTeamSeasonStats(parameters = list(TeamID = basicTeamInfo %>% select(TEAM_ID), Season = "2016-17")) %>% 
  bind_rows() %>% 
  mutate(SEASON_YEAR = "2016-17") -> teamStatsSeason; teamStatsSeason

Unequal factor levels: coercing to characterUnequal factor levels: coercing to characterUnequal factor levels: coercing to characterUnequal factor levels: coercing to characterUnequal factor levels: coercing to characterUnequal factor levels: coercing to characterUnequal factor levels: coercing to characterUnequal factor levels: coercing to characterUnequal factor levels: coercing to characterUnequal factor levels: coercing to characterUnequal factor levels: coercing to characterUnequal factor levels: coercing to characterUnequal factor levels: coercing to characterUnequal factor levels: coercing to characterUnequal factor levels: coercing to characterUnequal factor levels: coercing to characterUnequal factor levels: coercing to characterUnequal factor levels: coercing to characterUnequal factor levels: coercing to characterUnequal factor levels: coercing to characterUnequal factor levels: coercing to characterUnequal factor levels: coercing to characterUnequal factor levels: coercing to characterUnequal factor levels: coercing to characterUnequal factor levels: coercing to characterUnequal factor levels: coercing to characterUnequal factor levels: coercing to characterUnequal factor levels: coercing to characterUnequal factor levels: coercing to characterUnequal factor levels: coercing to characterUnequal factor levels: coercing to characterUnequal factor levels: coercing to characterUnequal factor levels: coercing to characterUnequal factor levels: coercing to characterUnequal factor levels: coercing to characterUnequal factor levels: coercing to characterUnequal factor levels: coercing to characterUnequal factor levels: coercing to characterUnequal factor levels: coercing to characterUnequal factor levels: coercing to characterUnequal factor levels: coercing to characterUnequal factor levels: coercing to characterUnequal factor levels: coercing to characterUnequal factor levels: coercing to characterUnequal factor levels: coercing to characterUnequal factor levels: coercing to characterUnequal factor levels: coercing to characterUnequal factor levels: coercing to characterUnequal factor levels: coercing to characterUnequal factor levels: coercing to characterUnequal factor levels: coercing to characterUnequal factor levels: coercing to characterUnequal factor levels: coercing to characterUnequal factor levels: coercing to characterUnequal factor levels: coercing to characterUnequal factor levels: coercing to character

Plot Single Team stats

PLot all team stats

plot_teamStats("warriors", "AST")

debugging in: plot_teamStats("warriors", "AST")
debug bei #1:{
    ggplotly(teamStatsComplete %>% filter(GROUP_SET == "Overall") %>% 
        ggplot(aes_(x = "SEASON_YEAR", y = statistic, group = "team", 
            col = "team")) + geom_line(alpha = 0.2) + geom_line(data = teamStatsComplete %>% 
        filter(GROUP_SET == "Overall") %>% filter_(team == team), 
        aes_(x = "SEASON_YEAR", y = statistic, group = 1)))
}

team

[1] "warriors"

teamStatsComplete %>%
    filter(GROUP_SET == "Overall")

teamStatsComplete %>%
    filter(GROUP_SET == "Overall") %>% filter_(team == team)

n

debug bei #2:ggplotly(teamStatsComplete %>% filter(GROUP_SET == "Overall") %>% 
    ggplot(aes_(x = "SEASON_YEAR", y = statistic, group = "team", 
        col = "team")) + geom_line(alpha = 0.2) + geom_line(data = teamStatsComplete %>% 
    filter(GROUP_SET == "Overall") %>% filter_(team == team), 
    aes_(x = "SEASON_YEAR", y = statistic, group = 1)))

n

We recommend that you use the dev version of ggplot2 with `ggplotly()`
Install it with: `devtools::install_github('hadley/ggplot2')`